From: Camm Maguire <camm@debian.org>
Date: Mon, 13 Apr 2026 17:26:39 +0000 (+0000)
Subject: [PATCH] <short summary of the patch>
X-Git-Tag: archive/raspbian/2.7.1-16+rpi1^2~1
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/%22mailto:sonu.itbhu%40googlemail.com//%22mailto:i18n-csb%40linuxcsb.org/%22/%22http:/www.example.com/%22mailto:sonu.itbhu%40googlemail.com/%22mailto:i18n-csb%40linuxcsb.org/%22?a=commitdiff_plain;h=26099be1475cf4da11a2d538e6b9e08a42e7feb4;p=gcl27.git

[PATCH] <short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.


Gbp-Pq: Name Version_2_7_2pre15
---

diff --git a/cmpnew/gcl_cmpeval.lsp b/cmpnew/gcl_cmpeval.lsp
index 12dd030..4bdb6c8 100644
--- a/cmpnew/gcl_cmpeval.lsp
+++ b/cmpnew/gcl_cmpeval.lsp
@@ -87,6 +87,10 @@
 		  (let ((val (symbol-value form)))
 		    (or 
 		     (c1constant-value val nil)
+		     (when (functionp val)
+		       (multiple-value-bind (s c n) (fle val)
+			 (declare (ignore c))
+			 (c1function (list (or n s)))))
 		     `(location ,(make-info :type (object-type val)) (VV ,(add-constant form))))))
 					;                 ((c1var form))))
                  ((c1expr-avct (c1var form))))) ;FIXME pcl
diff --git a/git.tag b/git.tag
index b8af7a5..ec638e1 100644
--- a/git.tag
+++ b/git.tag
@@ -1 +1 @@
-"Version_2_7_2pre14"
+"Version_2_7_2pre15"
diff --git a/lsp/gcl_iolib.lsp b/lsp/gcl_iolib.lsp
index de10ed1..8abf0fa 100644
--- a/lsp/gcl_iolib.lsp
+++ b/lsp/gcl_iolib.lsp
@@ -406,14 +406,12 @@
       (d pd (cdr pd)))
     (values ps created)))
 
-(defun get-byte-stream-nchars (s)
-  (let* ((tp (stream-element-type s))(ctp (cmp-norm-tp tp)))
-    (labels ((ts (i) (when (<= i 32)
-		       (if (tp<= ctp (cmp-norm-tp `(unsigned-byte ,(* i char-length))))
-			   i (ts (1+ i))))))
-      (cond ((tp<= ctp #tcharacter) 1)
-	    ((ts 0))
-	    (1)))))
+(defun get-byte-stream-nchars (s);restricted
+  (let* ((tp (stream-element-type s)))
+    (typecase tp
+	((cons (member signed-byte unsigned-byte) (cons (integer 0) null))
+	 (values (ceiling (cadr tp) 8)))
+	(t 1))))
 
 (defun parse-integer (s &key start end (radix 10) junk-allowed)
   (declare (optimize (safety 1)))
diff --git a/o/print.d b/o/print.d
index c1bdf83..535c782 100644
--- a/o/print.d
+++ b/o/print.d
@@ -1068,7 +1068,7 @@ print_symbol_name_body(object x,int pp) {
     write_ch('|');
 
   for (lw=i=0;i<VLEN(x);i++) {
-    j = x->st.st_self[i];
+    j = (uchar)x->st.st_self[i];
     if (PRINTescape && (j == '|' || j == '\\'))
       write_ch('\\');
     fc=convertible_upper(j) ? 1 :